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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sopiee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pt SE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY O 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
enePORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 
Routine to perform RELATIVE file organization specific 
EXTEND processing, that is, the formating of the data buckets 
by writing them with zeroes. 
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ENVIRONMENT: 
STAR processor running STARLET EXEC. 
AUTHOR: L F Laverdure, CREATION DATE: 1-Dec-1977 
MODIFIED BY: 
v03-003 KBT0133 Keith B. Thompson 20-Aug-1982 
Reorganize psects 
v03-002 keTotls Keith B. Thompson 6-Aug-1982 
33 3 Remove ref. to set_sifb_ptr 
0000 v03-001 pyreers Keith B. Thompson 13-Jul-1982 
8) Clean up psects 
0000 v02-007 £9s000g C Saether 99-Jan-1982 
a4 Fix code that depends on exact page size buffer. 
0000 V02-006 cosgooe C. Sae 28-Aug-1981 
4 on't actually Lock PBK ye doing feraatt ine only 
a4 oe a buffer. 
0000 v02-005 PSK00001 Paulina S. Knibbe 24-Jul-1981 
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0000 58 ; Fix some broken branches caused by integrating 

44 23 : Prologue three changes. 

$8 61; V02-004 REFORMAT Frederick E. Deen, Jr 28-Jul-1980 
B88 86 : This code was reformatted to adhere to RMS standards 
3 ee v003 RANOOOS R A Newell 9-Nov-1978 

$00 66 ; 

0000 67 ;-- 

0000 68 ; 

0000 69 
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File sharing code enhancements 
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~SBTTL RMSFMT_BKT2 = RELATIVE FILE BUCKET FORMAT ROUTINE 


mn 
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me 
cro 


p++ 
; RMSFMT_BKT2 = Relative File bucket format routine 


This module causes the blocks of a new extent of a RELATIVE file 
to be written with zeroes. 


CALLING SEQUENCE: 
BSBwW RMSFMT_BKT2 

INPUT PARAMETERS: 
R11 IMPURE AREA address 
R10 
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IFAB address 
R9 IRAB/IFAB address 
R8 RAB/FAB address 
R6 END VBN of EXTENT +1 
R1 First VBN of EXTENT 


IMPLICIT INPUTS: 


It is assumed that the PROLOG is locked. 
If IFBSL_EBK is less than R1, zeroing will start with VBN IFB$L_EBK. 


OUTPUT PARAMETERS: 


RO STATUS 

R1-R5,AP Destroyed 
IMPLICIT OUTPUTS: 

None 


COMPLETION CODES: 
Standard RMS. 
SIDE EFFECTS: 
None 
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009 14] | 
146 3 
0 145 ; Get a buffer to zero the EXTENT. 
144 ; NOTE: By the for a 1-byte buffer will get minimum of 1 block 
0 192 3 (will actually get an entire bucket). | 
° | 
33 itt 
88 128 RMSFMT_BKT2:: 
51 74 AA D 00 14 CMPL FBSL_EBK(R10) ,R1 ; EOF < start of extent? 
04 if 4 129 BGEQU ; branch if not 
51 74 AA OD 36 151 MOVL IFBSL_EBK(R10),R1 3; yes - start zeroing with EBK 
51 DD 8 A 126 5$: PUSHL R11 ; Save starting VBN on stack. 
oc 1 $SCACHE VBN=#0,SIZE=#1,- ; get a buffer for formatting. 
000C 154 FLAGS=<LOCK ,NOREAD>, ERR=ERREX 
1C A4 BEDO OO1A 155 POPL § BDBS$L_VBN(R4) ; store start VBN in BDB 
50 16Aa4 3C 001 138 MOVZWL BDBSW_SIZE(R4),RO i; get buffer Length 
50 OFF 8F AA 002 15 BICW2 #*XiFF, RO ; only use full pages 
7E 50 17 9C 00 158 ROTL #23,R0,-(SP) 3; get # of blocks in buffer 
1404 50 80 0028 159 MOVW RO, BDB$W_NUMB(R4) : use entire buffer for zeroing | 
54 DD O02F 160 PUSHL ; save BDB address 
65 $0 00 6€ 00 2 0031 161 MOVCS #0,(SP),#0,R0,(R5) 3; zero the buffer 
30 BA 0037 196 POPR #*M<R4,RS> ; restore BDB addr & # blocks 
0039 16 | 
0039 164 ; 
0039 165 ; Loop writing a buffer-full of zeroes each time thru. 
ane 
7E «655 «616 AS C1 «(0039 =: 168 108 ADDL3 BDBSL_VBN(R4),R5,-(SP) ; compute END VBN + 1 of blocks | 
QOO3E 169 3; to be zeroed this write 
5é 6€ D1 OO3E 170 CMPL (SP) ,R6 3; past end of extent? 
0c 1 0041 171 BLEQU 20% ; branch if not 
50 56 1C AS C3 0043 \7¢ SUBL 35 ey VBN(R4) ,R6,RO ; compute # blks for last xfer 
14 AS 0200 8F 50 AS 0048 17 MULWS RO, #572, BDB$W_NUMB(R4) ; and make into # bytes 
FFAE' 30 OO4F 174 20%: BSBw RMSSEQWTBD 3 go write the blocks 
1 AS =6BE) 0 s«0052~—Cés«d175 MOVL (SP) +,BDBSL_VBN(R4) ; set start VBN for next xfer 
1150 €9 0056 176 BLBC R ; branch if write failed 
56 1C AS 01 0059=«177 CMPL BDBSL_VBN(R4) ,R6 : all done? 
DA 1F O005D 178 BLSSU 10$ ; branch if not 
OOSF 179 
00SF 180; 
OOSF 181; ALL set, release the buffer and return to caller. 
BR: 
1C AG bs oF 184 RLS: CLRL BDBSL_VBN(R4) : Zero VBN field again. 
FF9B' 30 Ge 185 BSBW RMSRLANERR ; Release buffer. 
05 se 136 RSB ; Return. 
SE 04 CO oc8 188 ERREX: ADDL2 #4,SP ; Clean start VBN off stack. 
05 006 189 RSB ; And return. 
06A 190 
6A 191; 
6A 138 ; An error occurred on the WRITE to the file. 
6A 195; Release the buffer and return. 
6A 194; 
6A 195 
6A 138 ERRXFR: 
50 dD 6A 19 PUSHL RO ; Save error code. 


a SS 


RM2FMTBKT RELATIVE=SPECI 
v04- RMSFM T2 - 


EERE Pave cert coon “CRESTS ALSERE MACY TRSRAA BGM MO 


RM2( 
4 16:24 RMS.SRCIRM2FMTBKT.MAR; 1 V04- 
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; restore status 
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$$.PSECT_EP = 0 9 
$$. TMP = 8 
SSRMSTEST = A 
$SRMS_PBUGCHK = 8 19 
$$RMS_TBUGCHK = 0 
SRMS _UMO = 04 
BOBSL_VBN s iC 
DBSW_NU = 0 14 
BOBSW_SIZE = 00 pie 
CSH$M_LOCK = 0000000 
CSH$M_NOBUF FER = 0000 330 
CSHSM_~NOREAD = 99000 4 
ERREX 66 R 01 
ERRXFR 444444 R 01 
1FBSL_EBK = 00000074 
RLS OOOOOOSF R 01 
RMSCACHE eeeeeeee =X 01 
RMSFMT BKT2 00000000 RG 01 
RMSRLNERR teeeenee = X 01 
RMS$SSEQWTBD eereneee =X 0] | 
weer ew ee ee ee eee ee + | 
! Psect synopsis ! | 
PSECT name Allocation PSECT No. Attributes | 
. =. 00000000 < g.? 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS2 00000071 ¢ 113.) O1¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 

Initialization 30 00:00: 0.06 00:00:01.39 

comnend processing Wy Bes 8: $e ¢: B83 82 308 +98 
ass 7:00:04. :00:15. 

Symbol table sort 0 00:00: 0.49 0:00:01.00 | 

Pass 2 51 0:00: 3-38 tS 
pyaeot table output : 5 00:00: 0:9 0:00:0 Be 
sect synopsis outpu 7:00:00. :00:00. 

Soesacnetoranse oubeul § 09: : 06 00:00: 00-00 

Assembler run totals 414 0:00:06.88 0:00:24.90 


ihe york ing set Limit was 1200 pages. 

24557 bytes (48 pages) of virtual memory were used to buffer the intermediate gefe. 

There were 30 pages of symbol table space ol located to hold 462 non-local and 3 local symbols. 
203 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

15 pages of virtual memory were used to define 14 macros. 
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! Macro Library statistics ! 
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Macro Library name Macros defined 


Set aman | 


Bil 
SS$DUA SYScTRuSYARLET MLB; 2 3 
ToThis (all libraries) 1 


568 GETS were required to define 10 macros. 


There were no errors, warnings or information messages. 
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